# (decoded with TMPL 11972)
{ %filename% -- Modal one-shot dialog }
{ Created %date% %time% by AppMaker }

Unit %unitname%;
Interface

Uses
%if MPW%
	{$Load ToolBox.dump}
		MemTypes,
		QuickDraw,
		OSIntf,
		ToolIntf,
		PackIntf,
	{$Load}

%end if%
%If Think%
{$ifc undefined Think_Pascal}
	ListManager,
{$endc}
%end if%
	ResourceDefs,
	DialogAids;

Type
	%dlogname%Rec = record
		%DeclItems%
	end;

{----------}
Procedure Get%dlogname% (var %dlogname%:	%dlogname%Rec);

{----------}
Implementation

%If MPW%
{$D+}
{$R+}
{$OV+}

%end if%
const
	%ConstItems%

%If MPW%
{$S %unitname%}

%end if%
%ItemProcs%
%MaybeFilter%
{----------}
Procedure Get%dlogname% {(var %dlogname%:	%dlogname%Rec)};
var
	theDialog:		DialogPtr;
	itemNr:			integer;
Begin
	InitCursor;
	theDialog := GetNewDialog (%dlogname%ID, nil, pointer (-1));
	SetPort (theDialog);
	With %dlogname% do begin
		%SetItems%
		ShowWindow (theDialog);
		%EnableItems%
		ModalDialog (%Filtername%, itemNr);
		case itemNr of
			%HandleItems%
		end; {case}
		%FinishItems%
	end; {with}
	DisposDialog (theDialog);
End; {Get%dlogname%}

End. {%unitname%}